/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / emacs-complete / fsf / emacs / lisp / lunar.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 65 69 6e 67 6f 6c |piled by| reingol|
|00000020| 64 40 61 6c 62 65 72 74 | 2e 67 6e 75 2e 61 69 2e |d@albert|.gnu.ai.|
|00000030| 6d 69 74 2e 65 64 75 20 | 6f 6e 20 46 72 69 20 4a |mit.edu |on Fri J|
|00000040| 75 6e 20 20 33 20 31 36 | 3a 32 33 3a 31 38 20 31 |un  3 16|:23:18 1|
|00000050| 39 39 34 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |994.;;; |from fil|
|00000060| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000070| 31 39 2e 30 2f 6c 69 73 | 70 2f 6c 75 6e 61 72 2e |19.0/lis|p/lunar.|
|00000080| 65 6c 0a 3b 3b 3b 20 65 | 6d 61 63 73 20 76 65 72 |el.;;; e|macs ver|
|00000090| 73 69 6f 6e 20 31 39 2e | 32 35 2e 32 2e 0a 3b 3b |sion 19.|25.2..;;|
|000000a0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000b0| 6f 6e 20 46 53 46 20 32 | 2e 31 30 0a 3b 3b 3b 20 |on FSF 2|.10.;;; |
|000000c0| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|000000d0| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|000000e0| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|000000f0| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000100| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 38 2e 0a 0a |t in Ema|cs 18...|
|00000110| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000120| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000130| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000140| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|00000150| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|00000160| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion)..  |   (stri|
|00000170| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|00000180| 65 72 73 69 6f 6e 20 22 | 31 39 22 29 29 29 0a 20 |ersion "|19"))). |
|00000190| 20 20 20 28 65 72 72 6f | 72 20 22 60 2f 67 64 2f |   (erro|r "`/gd/|
|000001a0| 67 6e 75 2f 65 6d 61 63 | 73 2f 31 39 2e 30 2f 6c |gnu/emac|s/19.0/l|
|000001b0| 69 73 70 2f 6c 75 6e 61 | 72 2e 65 6c 27 20 77 61 |isp/luna|r.el' wa|
|000001c0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001d0| 6d 61 63 73 20 31 39 22 | 29 29 0a 0a 28 62 79 74 |macs 19"|))..(byt|
|000001e0| 65 2d 63 6f 64 65 20 22 | c0 c1 21 83 0d 00 c2 c3 |e-code "|..!.....|
|000001f0| 21 88 82 11 00 c4 c5 21 | 88 c2 c6 21 87 22 20 5b |!......!|...!." [|
|00000200| 66 62 6f 75 6e 64 70 20 | 61 74 61 6e 20 72 65 71 |fboundp |atan req|
|00000210| 75 69 72 65 20 6c 69 73 | 70 2d 66 6c 6f 61 74 2d |uire lis|p-float-|
|00000220| 74 79 70 65 20 65 72 72 | 6f 72 20 22 4c 75 6e 61 |type err|or "Luna|
|00000230| 72 20 63 61 6c 63 75 6c | 61 74 69 6f 6e 73 20 69 |r calcul|ations i|
|00000240| 6d 70 6f 73 73 69 62 6c | 65 20 73 69 6e 63 65 20 |mpossibl|e since |
|00000250| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 20 69 |floating| point i|
|00000260| 73 20 75 6e 61 76 61 69 | 6c 61 62 6c 65 2e 22 20 |s unavai|lable." |
|00000270| 73 6f 6c 61 72 5d 20 32 | 29 0a 28 64 65 66 61 6c |solar] 2|).(defal|
|00000280| 69 61 73 20 27 6c 75 6e | 61 72 2d 70 68 61 73 65 |ias 'lun|ar-phase|
|00000290| 2d 6c 69 73 74 20 23 5b | 28 6d 6f 6e 74 68 20 79 |-list #[|(month y|
|000002a0| 65 61 72 29 20 22 08 09 | 08 09 1a 1b 1c 1d 5c 66 |ear) "..|......\f|
|000002b0| c6 5f 0d c7 5c 5c 5c 5c | 89 1e 08 c6 a6 54 15 0e |._..\\\\|.....T..|
|000002c0| 08 c6 a5 14 29 5c 6e c6 | 5f 0b c9 5c 5c 5c 5c 89 |....)\n.|_..\\\\.|
|000002d0| 1e 08 c6 a6 54 13 0e 08 | c6 a5 12 29 0d ca 5c 66 |....T...|...)..\f|
|000002e0| 45 43 1e 0b 0b 89 c7 55 | 83 5a 00 5c 6e cc a6 cd |EC.....U|.Z.\n...|
|000002f0| 55 83 5a 00 5c 6e ce a6 | cd 55 83 56 00 5c 6e cf |U.Z.\n..|.U.V.\n.|
|00000300| a6 cd 55 83 5a 00 d0 82 | 5e 00 d1 0b 53 48 5c 6e |..U.Z...|^...SH\n|
|00000310| 45 43 1e 12 d3 09 08 ca | 09 45 40 89 18 ca 09 45 |EC......|.E@....E|
|00000320| 41 40 1e 14 08 ca 09 45 | 41 41 40 19 0e 14 08 53 |A@.....E|AA@....S|
|00000330| d5 5f 5c 5c 1e 16 08 c7 | 56 83 b3 00 0e 16 08 cc |._\\....|V.......|
|00000340| 5f d7 5c 5c d8 a5 5a 16 | 16 09 cc a6 cd 55 83 b3 |_.\\..Z.|.....U..|
|00000350| 00 09 ce a6 cd 55 83 ae | 00 09 cf a6 cd 55 83 b3 |.....U..|.....U..|
|00000360| 00 0e 16 54 16 16 0e 16 | 2c d9 a5 da 5c 5c 5c 5c |...T....|,...\\\\|
|00000370| db 5f 21 cc 5f 1e 1c dd | 0e 1c 21 1e 1e df 1e 20 |._!._...|..!.... |
|00000380| e1 0e 1e 0e 0b 5c 22 83 | f4 00 e1 0e 12 0e 1e 5c |.....\".|.......\|
|00000390| 22 83 e6 00 e2 0e 20 0e | 1e 43 5c 22 16 20 0e 1c |"..... .|.C\". ..|
|000003a0| 54 16 1c dd 0e 1c 21 16 | 1e 82 cb 00 0e 20 2e 09 |T.....!.|..... ..|
|000003b0| 87 22 20 5b 6d 6f 6e 74 | 68 20 79 65 61 72 20 73 |." [mont|h year s|
|000003c0| 74 61 72 74 2d 79 65 61 | 72 20 73 74 61 72 74 2d |tart-yea|r start-|
|000003d0| 6d 6f 6e 74 68 20 65 6e | 64 2d 79 65 61 72 20 65 |month en|d-year e|
|000003e0| 6e 64 2d 6d 6f 6e 74 68 | 20 31 32 20 32 20 6d 61 |nd-month| 12 2 ma|
|000003f0| 63 72 6f 2d 79 20 2d 32 | 20 31 20 65 6e 64 2d 64 |cro-y -2| 1 end-d|
|00000400| 61 74 65 20 34 20 30 20 | 31 30 30 20 34 30 30 20 |ate 4 0 |100 400 |
|00000410| 32 39 20 5b 33 31 20 32 | 38 20 33 31 20 33 30 20 |29 [31 2|8 31 30 |
|00000420| 33 31 20 33 30 20 33 31 | 20 33 31 20 33 30 20 33 |31 30 31| 31 30 3|
|00000430| 31 20 33 30 20 33 31 5d | 20 73 74 61 72 74 2d 64 |1 30 31]| start-d|
|00000440| 61 74 65 20 74 72 75 6e | 63 61 74 65 20 64 61 79 |ate trun|cate day|
|00000450| 20 33 31 20 64 61 79 2d | 6f 66 2d 79 65 61 72 20 | 31 day-|of-year |
|00000460| 32 33 20 31 30 20 33 36 | 36 2e 30 20 2d 31 39 30 |23 10 36|6.0 -190|
|00000470| 30 20 31 32 2e 33 36 38 | 34 39 39 39 39 39 39 39 |0 12.368|49999999|
|00000480| 39 39 39 39 20 69 6e 64 | 65 78 20 6c 75 6e 61 72 |9999 ind|ex lunar|
|00000490| 2d 70 68 61 73 65 20 6e | 65 77 2d 6d 6f 6f 6e 20 |-phase n|ew-moon |
|000004a0| 6e 69 6c 20 6c 69 73 74 | 20 63 61 6c 65 6e 64 61 |nil list| calenda|
|000004b0| 72 2d 64 61 74 65 2d 63 | 6f 6d 70 61 72 65 20 61 |r-date-c|ompare a|
|000004c0| 70 70 65 6e 64 5d 20 36 | 20 22 5c 0a 4c 69 73 74 |ppend] 6| "\.List|
|000004d0| 20 6f 66 20 6c 75 6e 61 | 72 20 70 68 61 73 65 73 | of luna|r phases|
|000004e0| 20 66 6f 72 20 74 68 72 | 65 65 20 6d 6f 6e 74 68 | for thr|ee month|
|000004f0| 73 20 73 74 61 72 74 69 | 6e 67 20 77 69 74 68 20 |s starti|ng with |
|00000500| 47 72 65 67 6f 72 69 61 | 6e 20 4d 4f 4e 54 48 2c |Gregoria|n MONTH,|
|00000510| 20 59 45 41 52 2e 22 5d | 29 0a 28 64 65 66 61 6c | YEAR."]|).(defal|
|00000520| 69 61 73 20 27 6c 75 6e | 61 72 2d 70 68 61 73 65 |ias 'lun|ar-phase|
|00000530| 20 23 5b 28 69 6e 64 65 | 78 29 20 22 c0 09 c2 5c | #[(inde|x) "...\|
|00000540| 22 1b 09 c4 a5 89 19 c5 | a5 1e 06 c7 1e 08 c9 1e |".......|........|
|00000550| 5c 6e cb 1e 5c 66 cd 1e | 0e 0e 5c 66 0e 5c 6e 53 |\n..\f..|..\f.\nS|
|00000560| cf 5f 5c 5c 1e 10 0e 5c | 6e d1 56 83 58 00 0e 10 |._\\...\|n.V.X...|
|00000570| 0e 5c 6e c2 5f d2 5c 5c | d3 a5 5a 16 10 0e 0e c2 |.\n._.\\|..Z.....|
|00000580| a6 d4 55 83 58 00 0e 0e | d5 a6 d4 55 83 53 00 0e |..U.X...|...U.S..|
|00000590| 0e d6 a6 d4 55 83 58 00 | 0e 10 54 16 10 0e 10 2c |....U.X.|..T....,|
|000005a0| 0e 08 d7 5f 0e 08 c2 a5 | 0e 08 d5 a5 5b 0e 08 d6 |..._....|....[...|
|000005b0| a5 5c 5c 5c 5c 5c 5c 5c | 5c 29 09 d8 5f 0e 06 89 |.\\\\\\\|\).._...|
|000005c0| d9 5f 5f 0e 06 89 89 da | 5f 5f 5f db 0e 06 dc 5f |.__.....|___...._|
|000005d0| 0e 06 89 dd 5f 5f de 5c | 5c 5c 5c 21 df 5f e0 5c |....__.\|\\\!._.\|
|000005e0| 5c 5c 5c 5c 5c 5c 5c 5c | 5c 1e 21 c0 09 e2 5f 0e |\\\\\\\\|\.!..._.|
|000005f0| 06 89 e3 5f 5f 0e 06 89 | 89 e4 5f 5f 5f e5 5c 5c |...__...|..___.\\|
|00000600| 5c 5c 5c 5c e6 5c 22 1e | 27 c0 09 e8 5f 0e 06 89 |\\\\.\".|'..._...|
|00000610| e9 5f 5f 0e 06 89 89 ea | 5f 5f 5f eb 5c 5c 5c 5c |.__.....|___.\\\\|
|00000620| 5c 5c ec 5c 22 1e 2d c0 | 09 ee 5f 0e 06 89 ef 5f |\\.\".-.|.._...._|
|00000630| 5f 0e 06 89 89 f0 5f 5f | 5f f1 5c 5c 5c 5c 5c 5c |_.....__|_.\\\\\\|
|00000640| f2 5c 22 1e 33 0b f4 3e | 83 80 01 f5 0e 06 f6 5f |.\".3..>|......._|
|00000650| 5a db 0e 27 21 5f db 0e | 27 89 5c 5c 21 f7 5f db |Z..'!_..|'.\\!._.|
|00000660| 0e 2d 21 f8 5f db 0e 2d | 89 5c 5c 21 f9 5f db 0e |.-!._..-|.\\!._..|
|00000670| 2d fa 5f 21 fb 5f db 0e | 33 89 5c 5c 21 fc 5f db |-._!._..|3.\\!._.|
|00000680| 0e 27 0e 2d 5c 5c 21 fd | 5f db 0e 27 0e 2d 5a 21 |.'.-\\!.|_..'.-Z!|
|00000690| fe 5f db 0e 33 89 5c 5c | 0e 27 5c 5c 21 ff 5f db |._..3.\\|.'\\!._.|
|000006a0| 0e 33 89 5c 5c 0e 27 5a | 21 81 40 00 5f db 0e 33 |.3.\\.'Z|!.@._..3|
|000006b0| 89 5c 5c 0e 2d 5c 5c 21 | 81 41 00 5f db 0e 33 89 |.\\.-\\!|.A._..3.|
|000006c0| 5c 5c 0e 2d 5a 21 81 42 | 00 5f db 0e 2d 89 5c 5c |\\.-Z!.B|._..-.\\|
|000006d0| 0e 27 5c 5c 21 81 43 00 | 5f 5c 5c 5c 5c 5c 5c 5c |.'\\!.C.|_\\\\\\\|
|000006e0| 5c 5c 5c 5c 5c 5c 5c 5c | 5c 5c 5c 5c 5c 5c 5c 5c |\\\\\\\\|\\\\\\\\|
|000006f0| 5c 82 3e 02 81 44 00 0e | 06 81 45 00 5f 5a db 0e |\.>..D..|..E._Z..|
|00000700| 27 21 5f db 0e 27 89 5c | 5c 21 81 46 00 5f db 0e |'!_..'.\|\!.F._..|
|00000710| 2d 21 81 47 00 5f db 0e | 2d 89 5c 5c 21 81 48 00 |-!.G._..|-.\\!.H.|
|00000720| 5f db 0e 2d fa 5f 21 81 | 49 00 5f db 0e 33 89 5c |_..-._!.|I._..3.\|
|00000730| 5c 21 81 4a 00 5f db 0e | 27 0e 2d 5c 5c 21 81 4b |\!.J._..|'.-\\!.K|
|00000740| 00 5f db 0e 27 0e 2d 5a | 21 81 4c 00 5f db 0e 33 |._..'.-Z|!.L._..3|
|00000750| 89 5c 5c 0e 27 5c 5c 21 | 81 4d 00 5f db 0e 33 89 |.\\.'\\!|.M._..3.|
|00000760| 5c 5c 0e 27 5a 21 81 4e | 00 5f db 0e 33 89 5c 5c |\\.'Z!.N|._..3.\\|
|00000770| 0e 2d 5c 5c 21 81 4f 00 | 5f db 0e 33 89 5c 5c 0e |.-\\!.O.|_..3.\\.|
|00000780| 2d 5a 21 81 50 00 5f db | 0e 2d 89 5c 5c 0e 27 5c |-Z!.P._.|.-.\\.'\|
|00000790| 5c 21 81 51 00 5f db 0e | 27 0e 2d 89 5c 5c 5a 21 |\!.Q._..|'.-.\\Z!|
|000007a0| 81 52 00 5f db 0e 27 89 | 5c 5c 0e 2d 5c 5c 21 81 |.R._..'.|\\.-\\!.|
|000007b0| 53 00 5f 5c 5c 5c 5c 5c | 5c 5c 5c 5c 5c 5c 5c 5c |S._\\\\\|\\\\\\\\|
|000007c0| 5c 5c 5c 5c 5c 5c 5c 5c | 5c 5c 5c 5c 5c 5c 5c 1e |\\\\\\\\|\\\\\\\.|
|000007d0| 54 81 55 00 0e 27 21 81 | 56 00 5f 81 55 00 0e 2d |T.U..'!.|V._.U..-|
|000007e0| 21 81 57 00 5f 81 58 00 | 5c 5c 5c 5c 1e 59 0b c9 |!.W._.X.|\\\\.Y..|
|000007f0| 55 83 69 02 0e 54 0e 59 | 5c 5c 82 79 02 0b d1 55 |U.i..T.Y|\\.y...U|
|00000800| 83 77 02 0e 54 0e 59 5a | 82 79 02 0e 54 1e 54 0e |.w..T.YZ|.y..T.T.|
|00000810| 21 0e 54 5c 5c 89 1e 21 | 0e 5a 81 5b 00 81 5c 5c |!.T\\..!|.Z.[..\\|
|00000820| 00 81 5d 00 0e 21 21 21 | 41 41 40 21 5a 81 5e 00 |..]..!!!|AA@!Z.^.|
|00000830| a5 5c 5c 89 1e 21 81 5d | 00 0e 21 21 5a 81 5f 00 |.\\..!.]|..!!Z._.|
|00000840| 5f 1e 06 81 5c 5c 00 81 | 5d 00 0e 21 21 21 1e 21 |_...\\..|]..!!!.!|
|00000850| 81 60 00 0e 21 0e 06 5c | 22 89 1e 59 40 81 61 00 |.`..!..\|"..Y@.a.|
|00000860| 81 62 00 0e 59 41 5c 22 | 0b 45 2e 0f 87 22 20 5b |.b..YA\"|.E..." [|
|00000870| 6d 6f 64 20 69 6e 64 65 | 78 20 34 20 70 68 61 73 |mod inde|x 4 phas|
|00000880| 65 20 34 2e 30 20 31 32 | 33 36 2e 38 34 39 39 39 |e 4.0 12|36.84999|
|00000890| 39 39 39 39 39 39 39 39 | 20 74 69 6d 65 20 31 38 |99999999| time 18|
|000008a0| 39 39 20 70 72 69 6f 72 | 2d 79 65 61 72 73 20 31 |99 prior|-years 1|
|000008b0| 20 6d 6f 6e 74 68 20 2e | 35 20 64 61 79 20 31 39 | month .|5 day 19|
|000008c0| 30 30 20 79 65 61 72 20 | 33 31 20 64 61 79 2d 6f |00 year |31 day-o|
|000008d0| 66 2d 79 65 61 72 20 32 | 20 32 33 20 31 30 20 30 |f-year 2| 23 10 0|
|000008e0| 20 31 30 30 20 34 30 30 | 20 33 36 35 20 32 39 2e | 100 400| 365 29.|
|000008f0| 35 33 30 35 38 38 36 38 | 30 30 30 30 30 30 31 20 |53058868|0000001 |
|00000900| 2e 30 30 30 31 31 37 37 | 39 39 39 39 39 39 39 39 |.0001177|99999999|
|00000910| 39 39 39 39 39 20 2d 31 | 2e 35 35 65 2d 30 30 37 |99999 -1|.55e-007|
|00000920| 20 73 6f 6c 61 72 2d 73 | 69 6e 2d 64 65 67 72 65 | solar-s|in-degre|
|00000930| 65 73 20 31 33 32 2e 38 | 37 20 2d 2e 30 30 39 31 |es 132.8|7 -.0091|
|00000940| 37 33 20 31 36 36 2e 35 | 36 20 2e 30 30 30 33 33 |73 166.5|6 .00033|
|00000950| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 30 33 20 |00000000|0000003 |
|00000960| 2e 37 35 39 33 32 39 39 | 39 39 39 39 39 39 39 39 |.7593299|99999999|
|00000970| 39 33 20 64 61 74 65 20 | 32 39 2e 31 30 35 33 35 |93 date |29.10535|
|00000980| 36 20 2d 33 2e 33 33 30 | 30 30 30 30 30 30 30 30 |6 -3.330|00000000|
|00000990| 30 30 30 30 31 65 2d 30 | 30 35 20 2d 33 2e 34 37 |00001e-0|05 -3.47|
|000009a0| 30 30 30 30 30 30 30 30 | 30 30 30 30 30 32 65 2d |00000000|000002e-|
|000009b0| 30 30 36 20 33 35 39 2e | 32 32 34 32 20 33 36 30 |006 359.|2242 360|
|000009c0| 2e 30 20 73 75 6e 2d 61 | 6e 6f 6d 61 6c 79 20 33 |.0 sun-a|nomaly 3|
|000009d0| 38 35 2e 38 31 36 39 31 | 38 30 35 39 39 39 39 39 |85.81691|80599999|
|000009e0| 38 20 2e 30 31 30 37 33 | 30 35 39 39 39 39 39 39 |8 .01073|05999999|
|000009f0| 39 39 39 39 39 20 31 2e | 32 33 35 39 39 39 39 39 |99999 1.|23599999|
|00000a00| 39 39 39 39 39 39 39 38 | 65 2d 30 30 35 20 33 30 |99999998|e-005 30|
|00000a10| 36 2e 30 32 35 33 30 30 | 30 30 30 30 30 30 30 32 |6.025300|00000002|
|00000a20| 20 33 36 30 2e 30 20 6d | 6f 6f 6e 2d 61 6e 6f 6d | 360.0 m|oon-anom|
|00000a30| 61 6c 79 20 33 39 30 2e | 36 37 30 35 30 36 34 36 |aly 390.|67050646|
|00000a40| 30 30 30 30 30 31 20 2d | 2e 30 30 31 36 35 32 38 |000001 -|.0016528|
|00000a50| 20 2d 32 2e 33 38 39 39 | 39 39 39 39 39 39 39 39 | -2.3899|99999999|
|00000a60| 39 39 39 37 65 2d 30 30 | 36 20 32 31 2e 32 39 36 |9997e-00|6 21.296|
|00000a70| 33 39 39 39 39 39 39 39 | 39 39 39 38 20 33 36 30 |39999999|9998 360|
|00000a80| 2e 30 20 6d 6f 6f 6e 2d | 6c 61 74 20 28 30 20 32 |.0 moon-|lat (0 2|
|00000a90| 29 20 2e 31 37 33 34 20 | 2e 30 30 30 33 39 33 30 |) .1734 |.0003930|
|00000aa0| 30 30 30 30 30 30 30 30 | 30 30 30 30 31 20 2e 30 |00000000|00001 .0|
|00000ab0| 30 32 30 39 39 39 39 39 | 39 39 39 39 39 39 39 39 |02099999|99999999|
|00000ac0| 39 36 20 2d 2e 34 30 36 | 37 39 39 39 39 39 39 39 |96 -.406|79999999|
|00000ad0| 39 39 39 39 39 36 20 2e | 30 31 36 31 30 30 30 30 |999996 .|01610000|
|00000ae0| 30 30 30 30 30 30 30 30 | 30 31 20 33 20 2d 2e 30 |00000000|01 3 -.0|
|00000af0| 30 30 34 20 2e 30 31 30 | 34 20 2d 2e 30 30 35 30 |004 .010|4 -.0050|
|00000b00| 39 39 39 39 39 39 39 39 | 39 39 39 39 39 39 36 20 |99999999|9999996 |
|00000b10| 2d 2e 30 30 37 34 30 30 | 30 30 30 30 30 30 30 30 |-.007400|00000000|
|00000b20| 30 30 30 31 32 20 2e 30 | 30 30 34 20 2d 2e 30 30 |00012 .0|004 -.00|
|00000b30| 30 34 20 2d 2e 30 30 30 | 35 39 39 39 39 39 39 39 |04 -.000|59999999|
|00000b40| 39 39 39 39 39 39 39 38 | 32 20 2e 30 30 31 20 2e |99999998|2 .001 .|
|00000b50| 30 30 30 35 20 2e 31 37 | 32 31 30 30 30 30 30 30 |0005 .17|21000000|
|00000b60| 30 30 30 30 30 30 31 20 | 2e 30 30 30 34 20 2e 30 |0000001 |.0004 .0|
|00000b70| 30 32 30 39 39 39 39 39 | 39 39 39 39 39 39 39 39 |02099999|99999999|
|00000b80| 39 36 20 2d 2e 36 32 38 | 30 30 30 30 30 30 30 30 |96 -.628|00000000|
|00000b90| 30 30 30 30 30 32 20 2e | 30 30 38 38 39 39 39 39 |000002 .|00889999|
|00000ba0| 39 39 39 39 39 39 39 39 | 39 38 36 20 2d 2e 30 30 |99999999|986 -.00|
|00000bb0| 30 34 20 2e 30 30 37 39 | 30 30 30 30 30 30 30 30 |04 .0079|00000000|
|00000bc0| 30 30 30 30 30 31 32 20 | 2d 2e 30 31 31 39 30 30 |0000012 |-.011900|
|00000bd0| 30 30 30 30 30 30 30 30 | 30 30 30 32 20 2d 2e 30 |00000000|0002 -.0|
|00000be0| 30 34 36 39 39 39 39 39 | 39 39 39 39 39 39 39 39 |04699999|99999999|
|00000bf0| 39 33 20 2e 30 30 30 32 | 39 39 39 39 39 39 39 39 |93 .0002|99999999|
|00000c00| 39 39 39 39 39 39 39 31 | 20 2d 2e 30 30 30 34 20 |99999991| -.0004 |
|00000c10| 2d 2e 30 30 30 35 39 39 | 39 39 39 39 39 39 39 39 |-.000599|99999999|
|00000c20| 39 39 39 39 38 32 20 2e | 30 30 32 30 39 39 39 39 |999982 .|00209999|
|00000c30| 39 39 39 39 39 39 39 39 | 39 39 36 20 2e 30 30 30 |99999999|996 .000|
|00000c40| 32 39 39 39 39 39 39 39 | 39 39 39 39 39 39 39 39 |29999999|99999999|
|00000c50| 31 20 2e 30 30 30 34 20 | 2d 2e 30 30 30 32 39 39 |1 .0004 |-.000299|
|00000c60| 39 39 39 39 39 39 39 39 | 39 39 39 39 39 31 20 61 |99999999|999991 a|
|00000c70| 64 6a 75 73 74 6d 65 6e | 74 20 73 6f 6c 61 72 2d |djustmen|t solar-|
|00000c80| 63 6f 73 69 6e 65 2d 64 | 65 67 72 65 65 73 20 2d |cosine-d|egrees -|
|00000c90| 2e 30 30 30 34 20 2e 30 | 30 30 32 39 39 39 39 39 |.0004 .0|00299999|
|00000ca0| 39 39 39 39 39 39 39 39 | 39 39 31 20 2e 30 30 32 |99999999|991 .002|
|00000cb0| 38 30 30 30 30 30 30 30 | 30 30 30 30 30 30 30 34 |80000000|00000004|
|00000cc0| 20 61 64 6a 20 63 61 6c | 65 6e 64 61 72 2d 74 69 | adj cal|endar-ti|
|00000cd0| 6d 65 2d 7a 6f 6e 65 20 | 73 6f 6c 61 72 2d 65 70 |me-zone |solar-ep|
|00000ce0| 68 65 6d 65 72 69 73 2d | 63 6f 72 72 65 63 74 69 |hemeris-|correcti|
|00000cf0| 6f 6e 20 63 61 6c 65 6e | 64 61 72 2d 67 72 65 67 |on calen|dar-greg|
|00000d00| 6f 72 69 61 6e 2d 66 72 | 6f 6d 2d 61 62 73 6f 6c |orian-fr|om-absol|
|00000d10| 75 74 65 20 74 72 75 6e | 63 61 74 65 20 31 34 34 |ute trun|cate 144|
|00000d20| 30 2e 30 20 32 34 20 73 | 6f 6c 61 72 2d 61 64 6a |0.0 24 s|olar-adj|
|00000d30| 2d 74 69 6d 65 2d 66 6f | 72 2d 64 73 74 20 61 70 |-time-fo|r-dst ap|
|00000d40| 70 6c 79 20 73 6f 6c 61 | 72 2d 74 69 6d 65 2d 73 |ply sola|r-time-s|
|00000d50| 74 72 69 6e 67 5d 20 31 | 38 20 22 5c 0a 4c 6f 63 |tring] 1|8 "\.Loc|
|00000d60| 61 6c 20 64 61 74 65 20 | 61 6e 64 20 74 69 6d 65 |al date |and time|
|00000d70| 20 6f 66 20 6c 75 6e 61 | 72 20 70 68 61 73 65 20 | of luna|r phase |
|00000d80| 49 4e 44 45 58 2e 0a 49 | 6e 74 65 67 65 72 20 62 |INDEX..I|nteger b|
|00000d90| 65 6c 6f 77 20 49 4e 44 | 45 58 2f 34 20 67 69 76 |elow IND|EX/4 giv|
|00000da0| 65 73 20 74 68 65 20 6c | 75 6e 61 74 69 6f 6e 20 |es the l|unation |
|00000db0| 6e 75 6d 62 65 72 2c 20 | 63 6f 75 6e 74 69 6e 67 |number, |counting|
|00000dc0| 20 66 72 6f 6d 20 4a 61 | 6e 20 31 2c 20 31 39 30 | from Ja|n 1, 190|
|00000dd0| 30 3b 0a 72 65 6d 61 69 | 6e 64 65 72 20 6d 6f 64 |0;.remai|nder mod|
|00000de0| 20 34 20 67 69 76 65 73 | 20 74 68 65 20 70 68 61 | 4 gives| the pha|
|00000df0| 73 65 3a 20 30 20 6e 65 | 77 20 6d 6f 6f 6e 2c 20 |se: 0 ne|w moon, |
|00000e00| 31 20 66 69 72 73 74 20 | 71 75 61 72 74 65 72 2c |1 first |quarter,|
|00000e10| 20 32 20 66 75 6c 6c 20 | 6d 6f 6f 6e 2c 0a 33 20 | 2 full |moon,.3 |
|00000e20| 6c 61 73 74 20 71 75 61 | 72 74 65 72 2e 22 5d 29 |last qua|rter."])|
|00000e30| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6c 75 6e 61 |.(defali|as 'luna|
|00000e40| 72 2d 70 68 61 73 65 2d | 6e 61 6d 65 20 23 5b 28 |r-phase-|name #[(|
|00000e50| 70 68 61 73 65 29 20 22 | 08 c1 55 83 08 00 c2 87 |phase) "|..U.....|
|00000e60| 08 c3 55 83 10 00 c4 87 | 08 c5 55 83 18 00 c6 87 |..U.....|..U.....|
|00000e70| 08 c7 55 85 1f 00 c8 87 | 22 20 5b 70 68 61 73 65 |..U.....|" [phase|
|00000e80| 20 30 20 22 4e 65 77 20 | 4d 6f 6f 6e 22 20 31 20 | 0 "New |Moon" 1 |
|00000e90| 22 46 69 72 73 74 20 51 | 75 61 72 74 65 72 20 4d |"First Q|uarter M|
|00000ea0| 6f 6f 6e 22 20 32 20 22 | 46 75 6c 6c 20 4d 6f 6f |oon" 2 "|Full Moo|
|00000eb0| 6e 22 20 33 20 22 4c 61 | 73 74 20 51 75 61 72 74 |n" 3 "La|st Quart|
|00000ec0| 65 72 20 4d 6f 6f 6e 22 | 5d 20 32 20 22 5c 0a 4e |er Moon"|] 2 "\.N|
|00000ed0| 61 6d 65 20 6f 66 20 6c | 75 6e 61 72 20 50 48 41 |ame of l|unar PHA|
|00000ee0| 53 45 2e 0a 30 20 3d 20 | 6e 65 77 20 6d 6f 6f 6e |SE..0 = |new moon|
|00000ef0| 2c 20 31 20 3d 20 66 69 | 72 73 74 20 71 75 61 72 |, 1 = fi|rst quar|
|00000f00| 74 65 72 2c 20 32 20 3d | 20 66 75 6c 6c 20 6d 6f |ter, 2 =| full mo|
|00000f10| 6f 6e 2c 20 33 20 3d 20 | 6c 61 73 74 20 71 75 61 |on, 3 = |last qua|
|00000f20| 72 74 65 72 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |rter."])|.(defali|
|00000f30| 61 73 20 27 63 61 6c 65 | 6e 64 61 72 2d 70 68 61 |as 'cale|ndar-pha|
|00000f40| 73 65 73 2d 6f 66 2d 6d | 6f 6f 6e 20 23 5b 6e 69 |ses-of-m|oon #[ni|
|00000f50| 6c 20 22 c0 c1 21 88 5c | 6e 0b 5c 6e 0b c4 1d 1e |l "..!.\|n.\n....|
|00000f60| 06 1e 07 1e 08 1e 09 0e | 08 ca 5f 0e 09 cb 5c 5c |........|.._...\\|
|00000f70| 5c 5c 89 1e 5c 66 ca a6 | 54 16 09 0e 5c 66 ca a5 |\\..\f..|T...\f..|
|00000f80| 16 08 29 0e 06 ca 5f 0e | 07 5c 5c 89 1e 5c 66 ca |..)..._.|.\\..\f.|
|00000f90| a6 54 16 07 0e 5c 66 ca | a5 16 06 29 cd 0d 21 71 |.T...\f.|...)..!q|
|00000fa0| 88 ce 16 0f d0 0e 08 0e | 06 55 83 61 00 d1 d2 d3 |........|.U.a....|
|00000fb0| 0e 09 21 d3 0e 07 21 0e | 06 24 82 70 00 d1 d4 d3 |..!...!.|.$.p....|
|00000fc0| 0e 09 21 0e 08 d3 0e 07 | 21 0e 06 25 21 88 d5 20 |..!.....|!..%!.. |
|00000fd0| 88 d6 d7 d8 0e 09 0e 08 | 5c 22 d9 23 63 88 65 62 |........|\".#c.eb|
|00000fe0| 88 da ce 21 88 db 16 0f | dc 0d 21 88 c0 dd 21 2d |...!....|..!...!-|
|00000ff0| 87 22 20 5b 6d 65 73 73 | 61 67 65 20 22 43 6f 6d |." [mess|age "Com|
|00001000| 70 75 74 69 6e 67 20 70 | 68 61 73 65 73 20 6f 66 |puting p|hases of|
|00001010| 20 74 68 65 20 6d 6f 6f | 6e 2e 2e 2e 22 20 64 69 | the moo|n..." di|
|00001020| 73 70 6c 61 79 65 64 2d | 6d 6f 6e 74 68 20 64 69 |splayed-|month di|
|00001030| 73 70 6c 61 79 65 64 2d | 79 65 61 72 20 22 2a 50 |splayed-|year "*P|
|00001040| 68 61 73 65 73 20 6f 66 | 20 4d 6f 6f 6e 2a 22 20 |hases of| Moon*" |
|00001050| 6c 75 6e 61 72 2d 70 68 | 61 73 65 73 2d 62 75 66 |lunar-ph|ases-buf|
|00001060| 66 65 72 20 79 32 20 6d | 32 20 79 31 20 6d 31 20 |fer y2 m|2 y1 m1 |
|00001070| 31 32 20 2d 32 20 6d 61 | 63 72 6f 2d 79 20 67 65 |12 -2 ma|cro-y ge|
|00001080| 74 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 20 |t-buffer|-create |
|00001090| 6e 69 6c 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |nil buff|er-read-|
|000010a0| 6f 6e 6c 79 20 63 61 6c | 65 6e 64 61 72 2d 73 65 |only cal|endar-se|
|000010b0| 74 2d 6d 6f 64 65 2d 6c | 69 6e 65 20 66 6f 72 6d |t-mode-l|ine form|
|000010c0| 61 74 20 22 50 68 61 73 | 65 73 20 6f 66 20 74 68 |at "Phas|es of th|
|000010d0| 65 20 4d 6f 6f 6e 20 66 | 72 6f 6d 20 25 73 20 74 |e Moon f|rom %s t|
|000010e0| 6f 20 25 73 2c 20 25 64 | 25 25 2d 22 20 63 61 6c |o %s, %d|%%-" cal|
|000010f0| 65 6e 64 61 72 2d 6d 6f | 6e 74 68 2d 6e 61 6d 65 |endar-mo|nth-name|
|00001100| 20 22 50 68 61 73 65 73 | 20 6f 66 20 74 68 65 20 | "Phases| of the |
|00001110| 4d 6f 6f 6e 20 66 72 6f | 6d 20 25 73 2c 20 25 64 |Moon fro|m %s, %d|
|00001120| 20 74 6f 20 25 73 2c 20 | 25 64 25 25 2d 22 20 65 | to %s, |%d%%-" e|
|00001130| 72 61 73 65 2d 62 75 66 | 66 65 72 20 6d 61 70 63 |rase-buf|fer mapc|
|00001140| 6f 6e 63 61 74 20 23 5b | 28 78 29 20 22 08 40 08 |oncat #[|(x) ".@.|
|00001150| 41 40 08 41 41 40 19 1a | 1b c4 0b 21 c5 c6 09 21 |A@.AA@..|...!...!|
|00001160| c7 5c 6e b0 05 2b 87 22 | 20 5b 78 20 70 68 61 73 |.\n..+."| [x phas|
|00001170| 65 20 74 69 6d 65 20 64 | 61 74 65 20 63 61 6c 65 |e time d|ate cale|
|00001180| 6e 64 61 72 2d 64 61 74 | 65 2d 73 74 72 69 6e 67 |ndar-dat|e-string|
|00001190| 20 22 3a 20 22 20 6c 75 | 6e 61 72 2d 70 68 61 73 | ": " lu|nar-phas|
|000011a0| 65 2d 6e 61 6d 65 20 22 | 20 22 5d 20 35 5d 20 6c |e-name "| "] 5] l|
|000011b0| 75 6e 61 72 2d 70 68 61 | 73 65 2d 6c 69 73 74 20 |unar-pha|se-list |
|000011c0| 22 5c 6e 22 20 73 65 74 | 2d 62 75 66 66 65 72 2d |"\n" set|-buffer-|
|000011d0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 74 20 64 69 73 |modified|-p t dis|
|000011e0| 70 6c 61 79 2d 62 75 66 | 66 65 72 20 22 43 6f 6d |play-buf|fer "Com|
|000011f0| 70 75 74 69 6e 67 20 70 | 68 61 73 65 73 20 6f 66 |puting p|hases of|
|00001200| 20 74 68 65 20 6d 6f 6f | 6e 2e 2e 2e 64 6f 6e 65 | the moo|n...done|
|00001210| 22 5d 20 38 20 22 5c 0a | 43 72 65 61 74 65 20 61 |"] 8 "\.|Create a|
|00001220| 20 62 75 66 66 65 72 20 | 77 69 74 68 20 74 68 65 | buffer |with the|
|00001230| 20 6c 75 6e 61 72 20 70 | 68 61 73 65 73 20 66 6f | lunar p|hases fo|
|00001240| 72 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 63 61 |r the cu|rrent ca|
|00001250| 6c 65 6e 64 61 72 20 77 | 69 6e 64 6f 77 2e 22 20 |lendar w|indow." |
|00001260| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00001270| 27 70 68 61 73 65 73 2d | 6f 66 2d 6d 6f 6f 6e 20 |'phases-|of-moon |
|00001280| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |#[(&opti|onal arg|
|00001290| 29 20 22 8a c0 19 c2 20 | 1b 5c 66 83 23 00 c5 c6 |) ".... |.\f.#...|
|000012a0| c7 c8 c9 ca cb 0e 5c 66 | cd 5c 22 5c 22 cd c0 24 |......\f|.\"\"..$|
|000012b0| 21 ce 0e 5c 66 21 5c 22 | 41 82 25 00 0b 40 1e 0f |!..\f!\"|A.%..@..|
|000012c0| 5c 66 83 39 00 d0 d1 d2 | d3 c2 20 41 41 40 21 23 |\f.9....|.. AA@!#|
|000012d0| 82 3d 00 0b 41 41 40 1e | 14 d5 20 2d 87 22 20 5b |.=..AA@.|.. -." [|
|000012e0| 74 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 69 67 6e |t comple|tion-ign|
|000012f0| 6f 72 65 2d 63 61 73 65 | 20 63 61 6c 65 6e 64 61 |ore-case| calenda|
|00001300| 72 2d 63 75 72 72 65 6e | 74 2d 64 61 74 65 20 64 |r-curren|t-date d|
|00001310| 61 74 65 20 61 72 67 20 | 61 73 73 6f 63 20 63 61 |ate arg |assoc ca|
|00001320| 70 69 74 61 6c 69 7a 65 | 20 63 6f 6d 70 6c 65 74 |pitalize| complet|
|00001330| 69 6e 67 2d 72 65 61 64 | 20 22 4d 6f 6e 74 68 20 |ing-read| "Month |
|00001340| 6e 61 6d 65 3a 20 22 20 | 6d 61 70 63 61 72 20 6c |name: " |mapcar l|
|00001350| 69 73 74 20 61 70 70 65 | 6e 64 20 63 61 6c 65 6e |ist appe|nd calen|
|00001360| 64 61 72 2d 6d 6f 6e 74 | 68 2d 6e 61 6d 65 2d 61 |dar-mont|h-name-a|
|00001370| 72 72 61 79 20 6e 69 6c | 20 63 61 6c 65 6e 64 61 |rray nil| calenda|
|00001380| 72 2d 6d 61 6b 65 2d 61 | 6c 69 73 74 20 64 69 73 |r-make-a|list dis|
|00001390| 70 6c 61 79 65 64 2d 6d | 6f 6e 74 68 20 63 61 6c |played-m|onth cal|
|000013a0| 65 6e 64 61 72 2d 72 65 | 61 64 20 22 59 65 61 72 |endar-re|ad "Year|
|000013b0| 20 28 3e 30 29 3a 20 22 | 20 28 6c 61 6d 62 64 61 | (>0): "| (lambda|
|000013c0| 20 28 78 29 20 28 3e 20 | 78 20 30 29 29 20 69 6e | (x) (> |x 0)) in|
|000013d0| 74 2d 74 6f 2d 73 74 72 | 69 6e 67 20 64 69 73 70 |t-to-str|ing disp|
|000013e0| 6c 61 79 65 64 2d 79 65 | 61 72 20 63 61 6c 65 6e |layed-ye|ar calen|
|000013f0| 64 61 72 2d 70 68 61 73 | 65 73 2d 6f 66 2d 6d 6f |dar-phas|es-of-mo|
|00001400| 6f 6e 5d 20 39 20 22 5c | 0a 44 69 73 70 6c 61 79 |on] 9 "\|.Display|
|00001410| 20 74 68 65 20 71 75 61 | 72 74 65 72 73 20 6f 66 | the qua|rters of|
|00001420| 20 74 68 65 20 6d 6f 6f | 6e 20 66 6f 72 20 6c 61 | the moo|n for la|
|00001430| 73 74 20 6d 6f 6e 74 68 | 2c 20 74 68 69 73 20 6d |st month|, this m|
|00001440| 6f 6e 74 68 2c 20 61 6e | 64 20 6e 65 78 74 20 6d |onth, an|d next m|
|00001450| 6f 6e 74 68 2e 0a 49 66 | 20 63 61 6c 6c 65 64 20 |onth..If| called |
|00001460| 77 69 74 68 20 61 6e 20 | 6f 70 74 69 6f 6e 61 6c |with an |optional|
|00001470| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|00001480| 2c 20 70 72 6f 6d 70 74 | 73 20 66 6f 72 20 6d 6f |, prompt|s for mo|
|00001490| 6e 74 68 20 61 6e 64 20 | 79 65 61 72 2e 0a 0a 54 |nth and |year...T|
|000014a0| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 69 73 20 |his func|tion is |
|000014b0| 73 75 69 74 61 62 6c 65 | 20 66 6f 72 20 65 78 65 |suitable| for exe|
|000014c0| 63 75 74 69 6f 6e 20 69 | 6e 20 61 20 2e 65 6d 61 |cution i|n a .ema|
|000014d0| 63 73 20 66 69 6c 65 2e | 22 20 22 50 22 5d 29 0a |cs file.|" "P"]).|
|000014e0| 28 64 65 66 61 6c 69 61 | 73 20 27 64 69 61 72 79 |(defalia|s 'diary|
|000014f0| 2d 70 68 61 73 65 73 2d | 6f 66 2d 6d 6f 6f 6e 20 |-phases-|of-moon |
|00001500| 23 5b 6e 69 6c 20 22 c0 | 09 41 41 40 09 40 1a 09 |#[nil ".|.AA@.@..|
|00001510| 41 40 1b 09 41 41 40 1c | 0b 5c 6e 53 c5 5f 5c 5c |A@..AA@.|.\nS._\\|
|00001520| 1e 06 5c 6e c7 56 83 48 | 00 0e 06 5c 6e c8 5f c9 |..\n.V.H|...\n._.|
|00001530| 5c 5c ca a5 5a 16 06 5c | 66 c8 a6 cb 55 83 48 00 |\\..Z..\|f...U.H.|
|00001540| 5c 66 cc a6 cb 55 83 43 | 00 5c 66 cd a6 cb 55 83 |\f...U.C|.\f...U.|
|00001550| 48 00 0e 06 54 16 06 0e | 06 2c ce a5 cf 5c 5c 5c |H...T...|.,...\\\|
|00001560| 5c d0 5f 21 c8 5f 1e 11 | d2 0e 11 21 1e 13 d4 0e |\._!._..|...!....|
|00001570| 13 09 43 5c 22 83 74 00 | 0e 11 54 16 11 d2 0e 11 |..C\".t.|..T.....|
|00001580| 21 16 13 82 5d 00 d5 0e | 13 40 09 5c 22 85 8a 00 |!...]...|.@.\"...|
|00001590| d6 0e 13 41 41 40 21 d7 | 0e 13 41 40 51 2a 87 22 |...AA@!.|..A@Q*."|
|000015a0| 20 5b 74 72 75 6e 63 61 | 74 65 20 64 61 74 65 20 | [trunca|te date |
|000015b0| 6d 6f 6e 74 68 20 64 61 | 79 20 79 65 61 72 20 33 |month da|y year 3|
|000015c0| 31 20 64 61 79 2d 6f 66 | 2d 79 65 61 72 20 32 20 |1 day-of|-year 2 |
|000015d0| 34 20 32 33 20 31 30 20 | 30 20 31 30 30 20 34 30 |4 23 10 |0 100 40|
|000015e0| 30 20 33 36 36 2e 30 20 | 2d 31 39 30 30 20 31 32 |0 366.0 |-1900 12|
|000015f0| 2e 33 36 38 34 39 39 39 | 39 39 39 39 39 39 39 39 |.3684999|99999999|
|00001600| 20 69 6e 64 65 78 20 6c | 75 6e 61 72 2d 70 68 61 | index l|unar-pha|
|00001610| 73 65 20 70 68 61 73 65 | 20 63 61 6c 65 6e 64 61 |se phase| calenda|
|00001620| 72 2d 64 61 74 65 2d 63 | 6f 6d 70 61 72 65 20 63 |r-date-c|ompare c|
|00001630| 61 6c 65 6e 64 61 72 2d | 64 61 74 65 2d 65 71 75 |alendar-|date-equ|
|00001640| 61 6c 20 6c 75 6e 61 72 | 2d 70 68 61 73 65 2d 6e |al lunar|-phase-n|
|00001650| 61 6d 65 20 22 20 22 5d | 20 35 20 22 5c 0a 4d 6f |ame " "]| 5 "\.Mo|
|00001660| 6f 6e 20 70 68 61 73 65 | 73 20 64 69 61 72 79 20 |on phase|s diary |
|00001670| 65 6e 74 72 79 2e 22 5d | 29 0a 28 70 72 6f 76 69 |entry."]|).(provi|
|00001680| 64 65 20 28 71 75 6f 74 | 65 20 6c 75 6e 61 72 29 |de (quot|e lunar)|
|00001690| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+